home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / toolkit / riruf1 / rufstate.bas < prev    next >
BASIC Source File  |  1995-03-27  |  1KB  |  42 lines
  1. Option Explicit
  2. Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Any) As Long
  3. Const sStateList = "AL,AK,AZ,AR,CA,CO,CT,DC,DE,FL,GA,HI,ID,IL,IN,IA,KS,KY,LA,ME,MD,MA,MI,MN,MS,MO,MT,NE,NV,NH,NJ,NM,NY,NC,ND,OH,OK,OR,PA,PR,RI,SC,SD,TN,TX,UT,VA,VT,VI,WA,WV,WI,WY,"
  4.  
  5. Function CheckState (sState As String) As Integer
  6.     CheckState = False
  7.     If Len(sState) < 2 Then
  8.         Exit Function
  9.     End If
  10.  
  11.     sState = sState & ","
  12.  
  13.     If InStr(sStateList, sState) Then
  14.         CheckState = True
  15.     End If
  16.  
  17. End Function
  18.  
  19. Sub FillStates (ctrl As ComboBox)
  20.     Dim n%, i%
  21.     Dim statenm$
  22.  
  23.     n% = 2
  24.     statenm$ = Left$(sStateList, n%)
  25.     ctrl.AddItem statenm$
  26.   
  27.    For i% = 1 To 52
  28.         n% = n% + 3
  29.         statenm$ = Right$(Left$(sStateList, n%), 2)
  30.         ctrl.AddItem statenm$
  31.     Next i%
  32. End Sub
  33.  
  34. Sub FindState (sInpState As String, cboCtrl As ComboBox)
  35.     Dim nIndex%
  36.  
  37.     nIndex = SendMessage(cboCtrl.hWnd, CB_FINDSTRINGEXACT, -1, sInpState)
  38.     cboCtrl.ListIndex = nIndex
  39.  
  40. End Sub
  41.  
  42.